home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d3 / amac33.arc / PAGE23.QM < prev    next >
Text File  |  1991-04-28  |  14KB  |  321 lines

  1. *                              (PageMaker)  v2.3d
  2. *┌────────────────────────────────[ (INDEX) ]──────────────────────────────────┐
  3. *│         Macro        Page Breaks         Page Numbers ?                     │
  4. *│        ───────       ───────────         ────────────────────────────────   │
  5. *│        (Alt_4)       Yes                 No      | for QMAC txtfiles only   │
  6. *│        (Alt_5)       Removes             Removes |                          │
  7. *│        (Alt_6)       Auto                No                                 │
  8. *│        (Alt_7)       Yes                 No                                 │
  9. *│        (Alt_8)        "                  Yes, query                         │
  10. *│        (Alt_9)        "                  Yes, query bar                     │
  11. *│        (Alt_0)       Removes             Removes                            │
  12. *│                                                                             │
  13. *│(Ctl_1) Start, select INDEX line with cursor, then Enter                     │
  14. *│                                                                             │
  15. *│(Description)       - PageMaker                                              │
  16. *│(Files)             - Included                                               │
  17. *│(Change)            - Settings and Running                                   │
  18. *│(Macros)            - in PageMaker PAGE23.ZIP                                │
  19. *│(Version)           - History                                                │
  20. *│(Other)             - Macros not included                                    │
  21. *└─────────────────────────────────────────────────────────────────────────────┘
  22.  
  23. * (Description) of (PageMaker):
  24. *
  25. *       The QEdit macros in PageMaker PAGE23.ZIP paginate documents and
  26. *       QMAC txtfiles so page break locations can be seen and moved
  27. *       for better readability.
  28. *
  29. * (Files) Included in PAGE23.ZIP:
  30. *
  31. *   PAGExx.QM     this txtfile of macros
  32. *   PAGExx.MAC    macfile converted from this txtfile with QMAC
  33. *   PAGE.TST      200 line document with line numbers to set parameters
  34. *   PAGE-QM.TST   200 line document with line numbers and asterisk in column 1
  35. *   PAGE.INF      description of macros
  36. *
  37. * (Change) Settings and Running:
  38. *
  39. *       For different settings change ** below with the following formulae:
  40. *       (PL-TM-BM-1)= 53, (TM-2)= 4, .... etc where TM= 6, BM= 6, PL= 66
  41. *       These macros paginate to 54 lines/page. Remember INSERT must be ON.
  42. *
  43. *       Depending on whether a document is reloaded or re paginated, there
  44. *       may be an extraneous carriage return and/or line feed present that
  45. *       cannot be removed when paginating. You may also see the top margin
  46. *       vary +- 1. Just be aware. Some printers may also handle documents
  47. *       paginated with these macros differently.
  48. *
  49. *       It is important that no lines in a document or a QMAC txtfile
  50. *       contain "page[space]-" or that and the subsequent line will be deleted
  51. *       when using some of the macros.
  52. *
  53. * These macros require "QEdit and QMAC v2.1, February, 1990" or later.
  54. *
  55. * To BEGIN, just type "START PAGE" <Enter>. All pertinent files will be
  56. * loaded in the "Ring" for viewing, and PAGE23.MAC is read.
  57. * Alternatively, type "START PAGE 0" <Enter> and the disk copies of all
  58. * files in the "Ring" will be loaded ready for editing, saving time.
  59.  
  60. *
  61.  
  62. * (Macros):
  63. *
  64. *┌────────────────────────────────────────────────────────────────────────────┐
  65. *│(Ctl_1) Finds first word in Index on cursor line marked in txtfile below    │
  66. *└────────────────────────────────────────────────────────────────────────────┘
  67. *
  68. *        Ctl_1 macro has 2 steps:
  69. *
  70. *        1. Press Ctl and 1 at the same time. A down arrow shows at the
  71. *        end of the top line. Cursor down to desired line in Index.
  72. *
  73. *        2. Press Enter. The macro first erases the down arrow, and
  74. *        then finds the first word on the cursor line in the document
  75. *        below marked with (...) around it.
  76.  
  77. *
  78. 02 macrobegin
  79.         unmarkblock                             * unmark any marked blocks
  80.         begfile endline                         * go to file begin endline
  81.         #25                                     * put down arrow at endline
  82.         begline
  83.         find #25 return return begline          * highlight down arrow
  84.         pause                                   * pause for Index selection
  85.         wordright markword                      * mark first word on line
  86.         copy                                    * copy word to scrap buffer
  87.         begfile                                 * begfile
  88.         find #25 return return delch            * find & delete down arrow
  89.         endpara                                 * go to end of Index
  90.         makectrofscreen                         * cursor line center of window
  91.         find "(" paste ")"  return return       * find first marked word in doc
  92.  jfalse NOMARK:
  93.         begline                                 * if mark found go to begline
  94.  jump END:
  95.  NOMARK:
  96.         begfile                                 * if no mark found GO TO begfile
  97.  END:
  98. *
  99. * 45 bytes Sat  09-29-1990  16:00:22 t
  100.  
  101.  
  102.  
  103.  
  104. *┌─────────────────────────────────────────────────────────────────────────┐
  105. *│(Alt_4) AUTOMATIC Page Breaks Only, NO Page #'s , for QMAC txtfiles only │
  106. *└─────────────────────────────────────────────────────────────────────────┘
  107. * Be careful not to place page breaks within a macro. QMAC sometimes gets
  108. * confused when page break lines are within macros, especially with labels.
  109. * Place page breaks only between macros.
  110.  
  111. @4 macrobegin
  112.         setprintpagesize  "0" return            * cut off QEdit pagination
  113.  LABEL1:                                        *  & top/bottom margins
  114.  find #12 #27 return "n" return
  115.  jfalse LABEL2:
  116.         delline                                 * delline if FF Esc found
  117.  jump LABEL1:
  118.  LABEL2:
  119.         begfile find #10 return "n" return
  120.  jfalse LABEL3:
  121.         delline                                 * delline if LF found
  122.  jump LABEL2:
  123.  LABEL3:
  124.         begfile
  125.         #10 repeatcmd "3" return                * insert 4 LF's on top
  126.         splitline cursordown                                ** set "3"=(TM-3) **
  127.         begline
  128.  LABEL4:
  129.         cursordown
  130.         repeatcmd "52" return                        ** set "52"=(PL-TM-BM-2) **
  131.  jfalse LABEL5:
  132.               "Cursor  only to between macros, ENTER to set"
  133.                return
  134.                cursorup markline markline
  135.                pause deleteblock begline
  136.         #42 #12 #27 repeatcmd "71" return       * insert asterisk FF 72 Esc's
  137.         #10 repeatcmd "4" return                            ** set "4"=(TM-2) **
  138.         return
  139.  jump LABEL4:                            
  140.  LABEL5:
  141.         endfile
  142.         return
  143.         #42 #12 #27 repeatcmd "77" return
  144.         begfile
  145. *
  146. * 193 bytes Sat  07-28-1990  15:20:09
  147.  
  148.  
  149.  
  150. *┌─────────────────────────────────────────────────────────┐
  151. *│(Alt_5) Removes Pagination Only, for QMAC txtfiles only  │
  152. *└─────────────────────────────────────────────────────────┘
  153. @5 macrobegin
  154.  LABEL1:
  155.         begfile find #12 #27 return "n" return
  156.  jfalse LABEL2:
  157.         delline                                 * delline if FF Esc found
  158.  jump LABEL1:
  159.  LABEL2:
  160.         begfile find #10 return "n" return
  161.  jfalse LABEL3:
  162.         delline                                 * delline if LF found
  163.  jump LABEL2:
  164.  LABEL3:
  165.         begfile
  166. *
  167. * 37 bytes Sat  07-28-1990  15:20:29
  168.  
  169.  
  170. *┌──────────────────────────────────────────────────┐
  171. *│(Alt_6) AUTOMATIC Page Breaks Only, NO Page #'s   │
  172. *└──────────────────────────────────────────────────┘
  173. @6     macrobegin setprintpagesize  "0" return
  174.  lab1: begfile find #12 #27  return "n" return
  175.        jfalse lab2: delline             jump lab1:
  176.  lab2: begfile find #10      return "n" return
  177.        jfalse lab3: delline             jump lab2:
  178.  lab3: begfile find #12      return "n" return
  179.        jfalse lab4: delch               jump lab3:
  180.  lab4: begfile find "page " "-" return "n" return
  181.        jfalse lab5: delline delline     jump lab4:
  182.  lab5: begfile
  183.        #10 repeatcmd "4" return splitline cursordown        ** set "4"=(TM-2) **
  184.  lab6: begline cursordown repeatcmd "53" return      ** set "53"=(PL-TM-BM-1) **
  185.        jfalse lab7: begline #12 #27 repeatcmd "72" return
  186.        #10 repeatcmd "5" return return jump lab6:           ** set "5"=(TM-1) **
  187.  lab7: endfile return begline #12 #27 repeatcmd "78" return begfile
  188. * 136 bytes Sat  07-28-1990  15:20:38
  189.  
  190.  
  191.  
  192. *┌────────────────────────────────────────┐
  193. *│(Alt_7) PAGE BREAKS ONLY, NO Page #'s   │
  194. *└────────────────────────────────────────┘
  195. @7     macrobegin setprintpagesize  "0" return
  196.  lab1: begfile find #12 #27  return "n" return
  197.        jfalse lab2: delline             jump lab1:
  198.  lab2: begfile find #10      return "n" return
  199.        jfalse lab3: delline             jump lab2:
  200.  lab3: begfile find #12      return "n" return
  201.        jfalse lab4: delch               jump lab3:
  202.  lab4: begfile find "page " "-" return "n" return
  203.        jfalse lab5: delline delline     jump lab4:
  204.  lab5: begfile
  205.        #10 repeatcmd "4" return splitline cursordown        ** set "4"=(TM-2) **
  206.  lab6: begline cursordown repeatcmd "53" return      ** set "53"=(PL-TM-BM-1) **
  207.        jfalse lab7: "UP arrow key only, ENTER to set" return
  208.        cursorup markline markline
  209.        pause deleteblock begline #12 #27 repeatcmd "72" return
  210.        #10 repeatcmd "5" return return jump lab6:           ** set "5"=(TM-1) **
  211.  lab7: endfile return begline #12 #27 repeatcmd "78" return begfile
  212. *
  213. * 204 bytes Sat  07-28-1990  15:20:55
  214.  
  215.  
  216. *┌────────────────────────────────────────────────────┐
  217. *│(Alt_8) PAGINATE, Add Page #'s, NO Query Bar        │
  218. *└─[Add page # at prompt, then ENTER for next page]───┘
  219. *
  220. @8     macrobegin setprintpagesize  "0" return
  221.  lab1: begfile find #12 #27  return "n" return
  222.        jfalse lab2: delline             jump lab1:
  223.  lab2: begfile find #10      return "n" return
  224.        jfalse lab3: delline             jump lab2:
  225.  lab3: begfile find #12      return "n" return
  226.        jfalse lab4: delch               jump lab3:
  227.  lab4: begfile find "page " "-" return "n" return
  228.        jfalse lab5: delline delline     jump lab4:
  229.  lab5: begfile
  230.        #10 repeatcmd "4" return splitline cursordown        ** set "4"=(TM-2) **
  231.  lab6: begline cursordown repeatcmd "53" return      ** set "53"=(PL-TM-BM-1) **
  232.        jfalse lab7: "UP arrow key only, ENTER to set" return cursorup
  233.        markline markline pause deleteblock begline #12 #27 repeatcmd
  234.       "72" return #10 repeatcmd "5" return  return          ** set "5"=(TM-1) **
  235.       "page " "--" return return cursorup cursorup centerline jump lab6:
  236.  lab7: endfile return begline #12 #27 repeatcmd "78" return begfile
  237.  lab8: find "page " "-" return "n"  return
  238.        jfalse lab9: makectrofscreen cursorright repeatcmd "5" return
  239.        pause jump lab8:
  240.  lab9: begfile
  241. *
  242. * 254 bytes Sat  07-28-1990  15:21:11
  243.  
  244.  
  245. *┌──────────────────────────────────────────────────┐
  246. *│(Alt_9) PAGINATE, Add Page #'s With Query Bar     │
  247. *└─[Add page # at prompt, then ENTER for next page]─┘
  248. *
  249. @9     macrobegin setprintpagesize  "0" return
  250.  lab1: begfile find #12 #27  return "n" return
  251.        jfalse lab2: delline             jump lab1:
  252.  lab2: begfile find #10      return "n" return
  253.        jfalse lab3: delline             jump lab2:
  254.  lab3: begfile find #12      return "n" return
  255.        jfalse lab4: delch               jump lab3:
  256.  lab4: begfile find "page " "-" return "n" return
  257.        jfalse lab5: delline delline     jump lab4:
  258.  lab5: begfile
  259.        #10 repeatcmd "4" return splitline cursordown        ** set "4"=(TM-2) **
  260.  lab6: begline cursordown repeatcmd "53" return      ** set "53"=(PL-TM-BM-1) **
  261.        jfalse lab7: "UP arrow key only, ENTER to set" return cursorup
  262.        markline markline pause deleteblock begline #12 #27 repeatcmd
  263.        "72" return #10 repeatcmd "5" return  return         ** set "5"=(TM-1) **
  264.        "page " "--" return return cursorup cursorup centerline jump lab6:
  265.  lab7: endfile return begline #12 #27 repeatcmd "78" return begfile
  266.  lab8: find "page " "-" return "n"  return
  267.        jfalse lab9: makectrofscreen begline "Enter page # (start p2) "
  268.        " " repeatcmd "17" return #25 #25 return cursorup begline
  269.        markblockbegin endline markblockend cursordown begline
  270.        wordright cursorright repeatcmd "5" return pause
  271.        cursorup delline cursordown jump lab8:
  272.  lab9: begfile
  273. *
  274. * 327 bytes Sat  07-28-1990  15:21:27
  275.  
  276.  
  277. *┌────────────────────────────────┐
  278. *│(Alt_0) Removes Pagination Only │
  279. *└────────────────────────────────┘
  280. @0     macrobegin
  281.  lab1: begfile find #12 #27  return "n" return
  282.        jfalse lab2: delline             jump lab1:
  283.  lab2: begfile find #10      return "n" return
  284.        jfalse lab3: delline             jump lab2:
  285.  lab3: begfile find #12      return "n" return
  286.        jfalse lab4: delch               jump lab3:
  287.  lab4: begfile find "page " "-" return "n" return
  288.        jfalse lab5: delline delline     jump lab4:
  289.  lab5: begfile
  290. *
  291. * 78 bytes Sat  07-28-1990  15:21:44
  292.  
  293.  
  294.  
  295. * (Other) Macros: See ALLMACRO.INF
  296. *
  297.  
  298.  
  299. * (Index) is at top of file
  300. *
  301. * (Version) History:
  302. *
  303. *   v1.1-8 misc changes, NO page #'s
  304. *   v1.9 - added page #'s, NO  page # query bar
  305. *   v2.0 - added page #'s with page # query bar
  306. *   v2.1 - summary of latest macros
  307. *   v2.2 - added Alt_4 & 5 to paginate QMAC txtfiles only
  308. *        - added Alt_1 from BookMarker Macros BOOK12.ZIP
  309. *   v2.2a- modified Alt_4 to not place asterisk in column 1 at begfile
  310. *   v2.2b- corrected Alt_4, label2: was on wrong line
  311. *   v2.3 - wrong version of PAGE.TST was in v2.2b, corrected
  312. *        - modified Alt_8,9 & 0 so no lines contain "page[space]-" and
  313. *          therefore necessary lines will not be deleted when paginating
  314. *        - changed Alt_1 to Ctl_1
  315. *   2.3a - Changed other file names in series, this is an update.
  316. *   2.3b - Changed documentation.
  317. *   2.3c - PAGE23.MAC was wrong file. Corrected.
  318. *   2.3d - Modified documentation and added START.BAT.
  319.  
  320. * Tom Hogshead  Wed  10-31-1990
  321.